home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / 68kgraph.arc / DEMO.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-12-13  |  3.4 KB  |  97 lines
  1. ******************************************************************
  2. * COPYRIGHT (C) 1986 by Donald Krantz and James Stanley
  3. * - Note: This is a real, live, actual, registered copyright,
  4. *   and should be treated as such. This source code is from
  5. *   the book "68000 Assembly Language", Krantz and Stanley,
  6. *   Addison-Wesley Publishing Company, Reading, MA, 1986.
  7. * 
  8. *   Permission granted by the authors for non-commercial use
  9. *   in programs released to the public domain, as long as this
  10. *   copyright notice remains attached and visible.
  11. *
  12. * Graphics test
  13. #bit.h
  14.  
  15.     xref    g_pix,g_clear,g_vector,g_mode,g_circle,g_fill
  16.     xref    creep,dump,arrow,snarl
  17.     xdef    image
  18.     
  19.     move.w    #jam_m,d0
  20.     bsr    g_mode
  21.     bsr    g_clear        * clear up screen
  22. ******* Draw distorted crosshatch *******************************
  23.     move.w    #0,d0        * set initial moving X
  24.     move.w    #vert-1,d3    * set initial moving Y
  25. lpx:
  26.     clr.w    d1        * set stationary Y
  27.     clr.w    d2        * set stationary X
  28.     bsr    g_vector    * draw line
  29.     move.w    #vert-1,d1    * go across image for stationary
  30.     move.w    #hor_b-1,d2    * X and Y
  31.     bsr    g_vector    * draw reflected line
  32.     add.w    #8,d0        * move the moving X
  33.     sub.w    #5,d3        * move the moving Y
  34.     cmp.w    #hor_b,d0    * check for  limit
  35.     blt    lpx        * loop if we aren't at limit
  36. ******* circle test - concentric circles ************************
  37.     move.w    #hor_b/2,d0    * center the circles in the image
  38.     move.w    #vert/2,d1    
  39.     move.w    #5,d2        * start with a tiny radius
  40.     move.w    #1,d3        * this will be incrementer
  41. lpc:
  42.     bsr    g_circle    * draw the circle 
  43.     add.w    d3,d2        * double the radius
  44.     addq.w    #1,d3        * increment the incrementer
  45.     cmp    #75,d2        * check that we don't get too big
  46.     blt    lpc        * if not, make more circles
  47. ******* fill in between two of the circles **********************
  48.     move.w    #65,d1        * pick Y to start creep
  49.     bsr    creep        * do creep 
  50. ******* mode check - set mode to complement for next tests ******
  51.     move.w    #comp_m,d0
  52.     bsr    g_mode
  53. ******* fill test ***********************************************
  54.     move.w    #0,d0        * make a vertical bar down the
  55.     move.w    #(vert/2-20),d1    * center
  56.     move.w    #hor_b-1,d2
  57.     move.w    #(vert/2+20),d3
  58.     bsr    g_fill
  59.     move.w    #(hor_b/2-5),d0    * make a horizontal bar across
  60.     move.w    #0,d1        * the center
  61.     move.w    #(hor_b/2+5),d2
  62.     move.w    #vert-1,d3
  63.     bsr    g_fill
  64. ******* Arrow icon test    *****************************************
  65.     move.w    #jam_m,d0    * test first in jam mode
  66.     bsr    g_mode
  67.     move.w    #20,d0        * put way over on left
  68.     move.w    #(vert/2+15),d1    * and half on filled area
  69.     bsr    arrow        * put arrow
  70.     move.w    #comp_m,d0    * next test complement mode
  71.     bsr    g_mode        * set comp code
  72.     move.w    #35,d0        * put next arrow just right
  73.     bsr    arrow        * put arrow
  74.     move.w    #set_m,d0    * next try set mode
  75.     bsr    g_mode        * set set mode
  76.     move.w    #50,d0        * put next arrow just right
  77.     bsr    arrow        * put arrow
  78.     move.w    #clr_m,d0    * last, try clear mode
  79.     bsr    g_mode        * set clear mode
  80.     move.w    #65,d0        * put last arrow to the right
  81.     bsr    arrow        * put arrow
  82. ******* Snarl icon test *****************************************
  83.     move.w    #jam_m,d0    * reset to jam mode
  84.     bsr    g_mode        * set mode
  85.     move.w    #278,d0        * put way over on right
  86.     move.w    #10,d1        * and down a little from top
  87.     bsr    snarl        * put snarl icon
  88. ******* now we dump our picture to the printer ******************
  89.     bsr    dump
  90.     rts
  91. *****************************************************************
  92.     bss
  93. image:
  94.     ds.b    vert*hor_w    * This is the global image memory
  95.  
  96.     end
  97.